home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8156 < prev    next >
Text File  |  1993-10-08  |  2KB  |  110 lines
  1. %%BeginFile: adobe_psp_TrueType
  2. %%Copyright: Copyright 1991-1993 Apple Computer, Inc. All Rights Reserved.
  3. userdict/LW
  4. statusdict begin product end(LaserWriter)anchorsearch
  5. exch pop
  6. {
  7. dup length 0 eq
  8. {
  9. pop 1
  10. }{
  11. ( Plus)eq
  12. {
  13. 2
  14. }{
  15. 3
  16. }ifelse
  17. }ifelse
  18. }{
  19. 0
  20. }ifelse
  21. put
  22. userdict/patchOK known not{
  23. userdict/patchOK
  24. systemdict/eexec known
  25. systemdict/cexec known and{
  26. countdictstack mark
  27. false
  28. <1861AEDAE118A9F95F1629C0137F8FE656811DD93DFBEA65E947502E78BA12284B8A58EF0A3
  29. 2E272778DAA2ABEC72A84102D591E11D96BA61F57877B895A752D9BEAAC3DFD7D3220E2BDE7
  30. C036467464E0E836748F1DE7AB6216866F130CE7CFCEC8CE050B870C11881EE3E9D70919>
  31. {eexec}stopped{
  32. cleartomark
  33. countdictstack exch sub dup 0 gt{{end}repeat}{pop}ifelse
  34. false
  35. }{
  36. {cleartomark pop true}{cleartomark pop false}ifelse
  37. }ifelse
  38. }{false}ifelse
  39. put
  40. }if
  41. userdict/downloadOK known not
  42. {
  43. userdict/downloadOK
  44. {
  45. patchOK
  46. LW dup 1 ne
  47. exch 2 ne
  48. and
  49. and
  50. vmstatus exch sub
  51. exch pop 120000 gt
  52. and
  53. }bind
  54. put
  55. }if
  56. userdict/type42known known not
  57. {
  58. userdict/type42known
  59. systemdict/resourcestatus known
  60. {
  61. 42/FontType resourcestatus
  62. {
  63. pop pop true
  64. }{
  65. false
  66. }ifelse
  67. }{
  68. false
  69. }ifelse
  70. put
  71. }if
  72. type42known not downloadOK and
  73. userdict/*charpath known not and
  74. {
  75. userdict begin
  76. /*charpath/charpath load def
  77. /charpathflag false def
  78. /charpath
  79. {
  80. userdict/charpathflag true put
  81. userdict/*charpath get exec
  82. userdict/charpathflag false put
  83. }bind def
  84. end
  85. }if
  86. /endstring 0 def
  87. /mystring 0 def
  88. userdict/checkload
  89. {
  90. {
  91. pop exec
  92. }{
  93. save
  94. 3 dict begin
  95. /mystring 6050 string def
  96. exch
  97. /endstring exch def
  98. {
  99. currentfile mystring readline not
  100. {stop}if
  101. endstring eq
  102. {exit}if
  103. }loop
  104. end
  105. restore
  106. pop
  107. }ifelse
  108. }bind
  109. put
  110.